www.gusucode.com > 落叶冰点万能企业网站内容管理系统 V9.1 > 落叶冰点万能企业网站内容管理系统 V9.1\code\admin\adminHTML\test7.asp

    

<%

Function GetBodyb(weburl) 
GetBodyb="生成此页的html页时超时，无法获得内容"
'创建对象
'Dim ObjXMLHTTP

on error resume next



'----------v2 code
Set ObjXMLHTTP2=Server.CreateObject("MSXML2.serverXMLHTTP")

ObjXMLHTTP2.setTimeouts 10000, 10000, 10000, 100


ObjXMLHTTP2.Open "GET",weburl,False
ObjXMLHTTP2.send


if ObjXMLHTTP2.getResponseHeader("Content-Type")<>"" and instr(1,lcase(ObjXMLHTTP2.getResponseHeader("Content-Type")),"text/html",1)=0 then
GetBodyb=ObjXMLHTTP2.getResponseHeader("Content-Type")
exit function
end if



'----------end v2 code


Set ObjXMLHTTP=Server.CreateObject("MSXML2.serverXMLHTTP")



                                      '不用再改
ObjXMLHTTP.setTimeouts 50000, 60000, 60000, 45000


'请求文件,以异步形式
ObjXMLHTTP.Open "GET",weburl,False
ObjXMLHTTP.send
'While ObjXMLHTTP.readyState <> 4
'ObjXMLHTTP.waitForResponse 20000
'Wend
'得到结果

nd_http_200ed_ok=1

if err.number<>0 then
err.clear
GetBodyb="xmlhttp超时，无法获得内容"


exit function
end if



if instr(1,lcase(ObjXMLHTTP.getResponseHeader("Content-Type")),"text/html",1)=0 then

GetBodyb="非网页数据"
exit function
end if



encodeingxxx_in_http_header="gb2312"

if instr(1,lcase(ObjXMLHTTP.getResponseHeader("Content-Type")),"utf-8",1)<>0 then

encodeingxxx_in_http_header="utf-8"
else

encodeingxxx_in_http_header="gb2312"
end if





if ObjXMLHTTP.status>300 then
nd_http_200ed_ok=0

end if

GetBodybx1=ObjXMLHTTP.responseBody
GetBodyax2 =ObjXMLHTTP.responseText


encodeingxxx=GetCode(GetBodyax2,bianma_reg)


GetBodyb=BytesToBstrc(GetBodybx1,encodeingxxx)

set re=nothing


'释放对象
Set ObjXMLHTTP=Nothing
End Function

%>

<%
=GetBodyb("http://www.cansen.com/proimg/10.pdf")
%>